home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Dev / powerd / lib / powerd_lib.lha / PowerD / SetEStr.ass < prev    next >
Encoding:
Text File  |  1999-06-23  |  126 b   |  11 lines
  1. ; a0 - estr
  2. ; d0 - length
  3.  
  4.     xdef    _SetEStr
  5.  
  6. _SetEStr    cmp.w    (-4,a0),d0
  7.     bhi.s    .end
  8.     move.w    d0,(-2,a0)
  9.     clr.b    (a0,d0.w)
  10. .end    rts
  11.